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DIRECTORY 

AltoDefs: FROM "AltoDefs" USING [PageSize], 

FSPDefs: FROM "FSPDefs". 

GPsortDefs: FROM "gpsortdef s" , 

InlineDefs: FROM "InlineDefs" USING [COPY], 

SegmentDefs: FROM "segmentdef s" , 

StreamDefs: FROM "streamdefs" USING [DiskHandle, WriteBlock, ReadBlock], 

SystemDefs: FROM "SystemDefs" USING [Al locateResidentPages , FreePages]; 

Utils: PROGRAM 

IMPORTS SegmentDefs, StreamDefs, SystemDefs. FSPDefs 

EXPORTS GPsortDefs « 
PUBLIC BEGIN OPEN GPsortDefs; 

sortZone: FSPDefs. ZonePointer ♦- NIL; 

Alloc: PROCEDURE [nwords: CARDINAL] RETURNS [p: POINTER] ■ 
BEGIN RETURN[FSPOefs.MakeNode[sortZone, nwords]] END; 

Free: PROCEDURE [p: POINTER] « BEGIN FSPDefs . FreeNode[sortZone. p] END; 

InitHeap: PROCEDURE[npages : CARDINAL] - 
BEGIN OPEN SystemDefs; 

IF sortZone # NIL THEN ERROR; — was EraseHeap[] 
sortZone <- FSPDefs .MakeNewZone[ 

AllocateResidentPages[npages], npages*AltoDef s .PageSize, FreePages]; 
END; 

EraseHeap: PROCEDURE « 
BEGIN 

FSPDefs .Destroy Zone [sortZone]; 
sortZone ♦- NIL; 
END; 

DeleteFile: PROCEDURE[dh: StreamDefs .DiskHandle] » 
BEGIN OPEN SegmentDefs; 
fh: FileHandle ^ dh.file; 
LockFile[fh]; 
dh .destroy[dh]; 
UnlockFile[fh]; 
DestroyFile[fh]; 
END; 

FillBuffer: PROCEDURE[f ile: FdHandle. size: INTEGER] » 
BEGIN OPEN file; 
cnt: CARDINAL; 
tail <- tail-head; 
IF tail > THEN 

In! ineDefs.COPY[@buffert[head], tail .buffer]; -- from, nwords. to 
cnt «- StreamDefs. ReadBlock[dh.0buffert[tail], size-tail]; 
head <- 0; 
tail ♦- tail+cnt; 
RETURN; 
END; 

FlushBuffer: PROCEDURE[f ile: FdHandle] « 
BEGIN OPEN file; 

[] «- StreamDefs. WriteBlock[dh. buffer, tail]; 
tail <- 0; 
END; . 

END. 


